10 REM COPYRIGHT 1993 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
20 RT=0:FT=1:FT$(1)="[198]IRST NAME [204]AST NAME":FT$(2)="[204]AST NAME, [198]IRST NAME"
30 FT$(3)="[193]S IS"
40 R$=CHR$(13):NU=1:DIMNA$(350),OG$(350):POKE53280,15:POKE53281,15:POKE646,6
50 PRINT"[147]            [158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
51 PRINT" [192][192][192][192][192][192][192][192][192][192][192][179] [156][206][193][205][197][160][205][193][195][200][201][206][197] [158][171][192][192][192][192][192][192][192][192][192][192][192]";CHR$(14)
52 PRINT"            [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][156]"
55 PRINT"[208][204][197][193][211][197] [197][206][212][197][210][160][206][213][205][194][197][210][160][207][198][160][211][197][204][197][195][212][201][207][206]"R$R$
60 PRINT"1...[197]NTER"R$R$;"2...[197]DIT"R$
61 PRINT"3...[208]RINT"R$R$"4...[211]AVE"R$R$"5...[204]OAD"R$R$"6...[197]RASE [193]LL [206]AMES"
62 PRINTR$"7...[195]HANGE [201]NPUT [198]ORMAT"
63 IF FT=3 THEN PRINT"    ([206]O NAMES)":GOTO70
64 PRINT "    ("FT$(FT)")"
70 GETA$:IFA$<"1"ORA$>"7"THEN70
80 A=VAL(A$):ONA GOTO 100,300,600,800,900,1000,1100
100 E=0:PRINT"[147][158]"TAB(13)"[176][192][192][192][192][192][192][192][192][192][192][192][174]"
101 PRINTTAB(13)"[221] [156][206]AME #"NU TAB(25)"[158][221]"
102 PRINT"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
103 PRINT"[212]YPE [156][205] TO [197]XIT TO MAIN MENU"
104 PRINT"[212]YPE [156][197] FOR [197]DIT MENU"
105 PRINT"[156][197][206][212][197][210][160][206][193][205][197] ("FT$(FT)")"R$"? [164]";:D$=""
110 GOSUB1300
130 IFA$=""THEN100
131 IFA$="M"ORA$="[205]"ORA$="MENU"THEN280
132 IFA$="D"ORA$="[196]"THEN 500
133 IF E=1 THEN GOSUB 290
134 IF A$="E" OR A$="[197]" OR A$="EDIT" THEN RT=1:GOTO300
135 OG$=A$
136 IF FT=3 THEN NA$=A$:GOTO200
138 IF FT=2 THEN 170
140 A=LEN(A$):C=A:B=0
145 IF MID$(A$,A,1)=" " THEN 160
150 A=A-1:B=B+1:IFA=0THENNA$=A$:GOTO200
155 GOTO145
160 B$=RIGHT$(A$,B):C$=LEFT$(A$,C-B):NA$=B$+", "+C$:GOTO200
170 A=LEN(A$):C=A:B=1
175 IF MID$(A$,B,1)= "," THEN 190
180 IF B=A THEN NA$=A$:GOTO200
185 B=B+1:GOTO175
190 B$=RIGHT$(A$,C-B):C$=LEFT$(A$,(B-1)):OG$=B$+" "+C$:NA$=A$
200 D=1
205 REM PRINTLENHR$(142)
210 IFD>NUTHENNA$(NU)=NA$:OG$(NU)=OG$:GOTO260
220 IFNA$>NA$(D)THEND=D+1:GOTO210
230 B=NU:FORI=1TONU-D
240 NA$(B)=NA$(B-1):OG$(B)=OG$(B-1):B=B-1:NEXT
250 NA$(D)=NA$:OG$(D)=OG$
260 NU=NU+1:PRINTCHR$(14):IFE=1THEN458
270 GOTO100
280 IFE=1THENE=0:GOTO458
282 IFRT=1THENRT=0:GOTO100
285 GOTO50
290 NA$(C)=NA$(C+1):OG$(C)=OG$(C+1):IFC<NU THEN C=C+1:GOTO290
298 NU=NU-1:RETURN
300 A=1
304 PRINT"[147]      [156][208][204][197][193][211][197][160][211][197][204][197][195][212][160][206][213][205][194][197][210][160][212][207][160][197][196][201][212][158]"
305 PRINT"     [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
306 IF NU<=20 THEN 309
308 PRINT"[200][201][212] [156][210][197][212][213][210][206] [212][207][160][195][207][206][212][201][206][213][197][160][204][201][211][212][201][206][199]"
309 PRINT"[212]YPE [156][205] TO [197]XIT TO MAIN MENU"
310 FORI=1TO20
320 IFA<=9THENPRINT" ";A;NA$(A):A=A+1:GOTO327
325 PRINTA;NA$(A):A=A+1:C=0
327 NEXT:C=0
330 PRINT"? [164]";:D$=""
331 GETZ$:IFZ$=""THEN331
332 IFZ$=CHR$(13)ORZ$=CHR$(141)THENA$=D$:GOTO340
333 IFLEN(D$)=0ANDZ$=CHR$(20)THEN331
334 IFZ$=CHR$(20)THEND$=LEFT$(D$,LEN(D$)-1):PRINT"[157] [157]"Z$"[164]";
335 IFZ$<" "ORZ$>CHR$(130)ANDZ$<CHR$(160)THEN331
336 IFLEN(Z$)>3THEN331
338 IF Z$="M" OR Z$="[205]" OR Z$="MENU"THEN282
339 D$=D$+Z$:PRINT"[157]"Z$"[164]";:GOTO331
340 IF A$=""THEN370
350 B=VAL(A$)
355 IFB<=0ORB>=NUTHENFORI=0TOLEN(A$):PRINT"[157] [157]";:NEXT:PRINT"[164]";:D$="":GOTO331
360 GOTO400
370 IFA>=NUTHENA=1:GOTO304
380 GOTO 304
398 GOTO134
400 PRINT"[147][212]YPE [156][196] TO DELETE NAME"
410 PRINT"[212]YPE [156][205] TO RETURN TO MENU"
420 PRINT"[207][204][196][160][197][206][212][210][217]--"NA$(B)
430 PRINT"[156][212][217][208][197][160][201][206][160][206][197][215][160][197][206][212][210][217] ([204]AST NAME, [198]IRST NAME)"R$R$"? [164]";
450 E=1:Q=NU:TF=FT:D$="":C=B
453 IF FT=3 THEN 110
455 FT=2:GOTO110
458 NU=Q:FT=TF:E=0:IF RT=1 THEN RT=0:GOTO100
459 GOTO300
500 PRINTR$R$"[193]RE [217]OU [211]URE? ([217]/[206])"
510 GET A$:IFA$=""THEN510
520 IFA$="[206]"ORA$="N"THEN E=0:NU=Q:FT=TF:GOTO300
530 GOSUB290:GOTO300
600 PRINT"[147][156]     [212]YPE [205] TO RETURN TO MAIN MENU[158]"
605 PRINT"     [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
608 [153]"(null)RINT CLRASCIRST OR CLR(null)AST NAME FIRST?";
610 [161] A$:[139]A$[179][177]"F"[175]A$[179][177]"ASC"[175]A$[179][177]"L"[175]A$[179][177]"(null)"[175]A$[179][177]"M"[175]A$[179][177]"(null)"[167] 610
615 [139]A$[178]"M"[176]A$[178]"(null)"[167]50
620 [153]A$:A[178]1:[139]A$[178]"F"[176]A$[178]"ASC"[167] A[178]0
626 [153]R$"(null)UMBER (null)IST OF (null)AMES? ((null)/(null))";
627 [141]797
628 [139]A$[178]"M"[176]A$[178]"(null)"[167]50
629 [153]A$:D[178]1:[139]A$[178]"Y"[176]A$[178]"(null)"[167] D[178]0
630 [153]R$"ATNRE YOU USING (null)INGLE (null)HEETS? ((null)/(null))";
631 [141]797
632 [153]A$:O[178]1:[139]A$[178]"Y"[176]A$[178]"(null)"[167] O[178]0
635 [153]R$"(null)UMBER OF LINES PEEKETWEEN (null)AMES (0-3)?";
636 [161]A$:[139]A$[179]"0"[176]A$[177]"3"[167]636
637 F[178][197](A$):[153]F
641 [139](NU[172](F[170]1))[179]55[167]645
642 [153]R$"(null)RINT IN (null)WO COLUMNS? ((null)/(null))"
643 [141]797
644 P[178]0:[139] A$[178]"Y"[176]A$[178]"(null)"[167]P[178]1
645 [153]R$"(null)YPE (null)ITLE: TO";:D$[178]"":[141]1300:B$[178]A$
646 [153]R$"CLR(null)(null)VAL(null)(null)CLOSEATN(null)(null)CLOSE(null)VAL(null)CLOSE(null)(null)CLOSEPEEKVALCHR$RIGHT$(null)CLOSE(null)(null)RIGHT$(null)(null)RIGHT$(null)CHR$"
647 [153]"(null)O LENANCEL PRESS (null)WAIT"
648 [161]A$:[139]A$[178]""[167]648
649 [139] A$[178]"Q"[167]50
650 [159] 4,4,7:G[178][181]([195](B$)[173]2):[152]4,R$
651 [129]I[178]1[164](40[171]G):[152]4," ";:[130]:[152]4,B$R$R$
655 [139]P[178]1[167]700
656 [129]I[178]1[164]NU
657 [161]A$:[139]A$[178]"Q"[167]50
658 [139]M[179][178]55[167]666
659 M[178]1:[139] O[178]1 [167] 664
660 [153]"LOAD(null)(null)VAL(null)(null)CLOSEATN(null)(null)CLOSE(null)VAL(null)CLOSE(null)(null)CLOSELEN(null)(null)(null)RIGHT$(null)(null)VAL"
661 [153]"(null)O LENANCEL PRESS (null)WAIT"
662 [161]A$:[139]A$[178]""[167]662
663 [153]"LOAD": [152]4,R$,R$,R$:[137]666
664 [129]B[178]1[164]5:[152]4,R$:[130]B
666 [139] D[178]0[175]I[179][178]9[167][152]4," ";I;:[137]669
667 [139] D[178]0[167][152]4,I;
669 [139] A[178]0[167] [152]4,OG$(I):[137]680
670 [139] A[178]1[167] [152]4,NA$(I)
680 [139]F[177]0[167][129]Q[178]1[164]F:[152]4,"":M[178]M[170]1:[130]Q
682 M[178]M[170]1:[130]:[160]4:[137]50
700 M[178]1:Q[178]1:I[178]1:LN[178][181](55[173](F[170]1)):[139]F[177]0[167] LN[178]LN[170]1
705 K[178]I:[139]I[177]NU[167][160]4:[137]50
708 [161]A$:[139]A$[178]"Q"[167][160]4:[137]50
710 [139]M[179][178]LN[167]745
715 M[178]1:I[178]I[170]LN:K[178]I:Q[178]1:[139] O[178]1 [167] 740
720 [153]"LOAD(null)(null)VAL(null)(null)CLOSEATN(null)(null)CLOSE(null)VAL(null)CLOSE(null)(null)CLOSELEN(null)(null)(null)RIGHT$(null)(null)VAL"
725 [153]"(null)O LENANCEL PRESS (null)"
730 [161]A$:[139]A$[178]""[167]730
735 [153]"LOAD":[152]4,R$,R$,R$:[137]745
740 [129]B[178]1[164]10:[152]4,"":[130]B
745 [139] D[178]0[175]K[179][178]9[167][152]4,"   ";K;:[137]755
750 [139] D[178]0[167][139]NA$(K)[179][177]""[167][152]4,"  ";K;
755 [139] A[178]0[167] [152]4,OG$(K);:[137]765
760 [139] A[178]1[167] [152]4,NA$(K);
765 [139] Q[178]0[167]780
775 K[178]I[170]LN:[129]J[178]1[164]40[171]([195](NA$(I))[170]3):[152]4," ";:[130]J:Q[178]0:[137]745
780 K[178]I:Q[178]1
790 [129]QA[178]0[164]F:[152]4,"":[130]QA
795 M[178]M[170]1:I[178]I[170]1:[137]705
797 [161] A$:[139] A$[179][177]"Y"[175]A$[179][177]"(null)"[175]A$[179][177]"N"[175]A$[179][177]"(null)"[175]A$[179][177]"M"[175]A$[179][177]"(null)"[167]797
798 [139]A$[178]"M"[176]A$[178]"(null)"[167]50
799 [142]
800 [153]"LOAD(null)YPE CLR(null) TO VALXIT TO MAIN MENU"
805 [153]"CLR(null)YPE TITLE TO SAVE: TO";:D$[178]"":[141]1300
808 [139]A$[178]"M"[176]A$[178]"(null)"[167]50
810 [159]8,8,4,"@0:"[170]A$[170]",SEQ,W"
820 [152]8,NU:[129]I[178]1[164]NU:[152]8,OG$(I):[130]I
890 [160]8:[137]50
900 [153]"LOAD(null)YPE CLR(null) TO VALXIT TO MAIN MENU"
905 [153]"CLR(null)YPE TITLE TO LOAD: TO";:D$[178]"":[141]1300
908 [139]A$[178]"M"[176]A$[178]"(null)"[167]50
910 [159]8,8,4,A$[170]",SEQ,R"
919 [132]8,NU:[129]I[178]1[164](NU[171]1):[132]8,OG$(I):[130]I:[160]8
920 [139]OG$(1)[179][177]""[167]924
921 [159]15,8,15:[132]15,A$,B$:[153]R$R$R$"CLR"B$:[160]15
922 NU[178]1:[129]Z[178]1[164]1000:[130]Z:[137]900
924 [153]R$"CLR(null)LEASE (null)AIT"
925 [129]I[178]1[164]NU:A$[178]OG$(I)
928 A[178][195](A$):C[178]A:B[178]0
930 [139]A[178]0[167]OG$(I)[178]" ":[137]990
940 [139][202](A$,A,1)[178][199](32)[167]960
950 A[178]A[171]1:B[178]B[170]1:[139]A[178]0[167]NA$[178]A$:[137]960
955 [137]940
960 B$[178][201](A$,B):C$[178][200](A$,C[171]B):NA$(I)[178]B$[170]", "[170]C$
990 [130]I:[137]50
1000 [153]"LOADVALRASE ALL (null)AMES"
1005 [153]"CLRATNRE (null)OU (null)URE ((null)/(null))CONT"
1010 [161] A$:[139]A$[178]""[167] 1010
1015 [153]"CLR(null)(null)VALATN(null)VALCLOSE(null)ATNRIGHT$(null)"
1020 [139]A$[178]"N"[167] 50
1030 [129]I[178]0[164]349:NA$(I)[178]"":OG$(I)[178]"":NU[178]1:[130]I:[137]50
1100 [153]"LOADCLR(null)(null)VALATN(null)VALCLOSE(null)VAL(null)VALLEN(null)CLOSEASC(null)(null)(null)ATN(null)CLOSEASC(null)(null)CLOSEVAL(null)(null)VAL(null)RIGHT$(null)CHR$CLOSE(null)ATN(null)VAL(null)"
1110 [153]"1...ASCIRST NAME (null)AST NAME"
1120 [153]"2...(null)AST NAME, ASCIRST NAME"
1130 [153]"3...(null)O NAMES ((null)SE FOR NAMES OTHER THAN"
1140 [153] [166]14)"PEOPLE- SONG TITLES, ETC.)"
1145 [153]"(null)(null)(null)VAL: (null)HE FORMAT IS FOR ENTERING NAMES"
1147 [153]"      ONLY.  (null)HEY WILL STILL BE ALPHA-"
1148 [153]"      BETIZED BY THE (null)AST NAME, UNLESS"
1149 [153]"      (null)O NAMES IS SELECTED."
1150 [161] A$:[139] A$[179]"1" [176] A$[177]"3" [167]1150[155]1145[171]
1160 FT[178][197](A$):[137]50
1300 [161]Z$:[139]Z$[178]""[167]1300
1310 [139]Z$[178][199](13)[176]Z$[178][199](141)[167]A$[178]D$:[142]
1320 [139][195](D$)[178]0[175]Z$[178][199](20)[167]1300
1330 [139]Z$[178][199](20)[167]D$[178][200](D$,[195](D$)[171]1):[153]"CMD CMD"Z$"TO";
1340 [139]Z$[179]" "[176]Z$[177][199](130)[175]Z$[179][199](160)[167]1300
1350 D$[178]D$[170]Z$:[153]"CMD"Z$"TO";:[137]1300
1500 LD[178]1:[137]50